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BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 
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FACILITY: 

VAX/VMS EXECUTIVE, 1/0 DRIVERS 
ABSTRACT: CI PORT INITIALIZATION 
AUTHOR: N. KRONENBERG, MAY 1981 
MODIFIED BY: 


v04-001 NPK3066 onenberg 9-Sep-1984 
Add flags INISCPU/PORT REV. Flags = 1/0 if wode is 
okay/insufficient. Used to trigger UCODEREV bugcheck 
rather than usual CIPORT bugcheck if buacheck is needed. 
Set smiscry ety te okay just before oy fey check; clear 
if check f eer or to call ing CLEANU 
Set rec gpony “tt when port is Successtully init'ed assuming 
its ucode is okay. Clear in PACONFIG when we have 
checked port ucode rev and determined it is bad. 


V03-034 NPK3064 N. Kronenbers 21-Au gh 
On cpu powerfail rosevery ¢ en port may eetk 
alive if it was an unswitched power failure), 
the port before dropping ipl to reinit. 


v03-033 pen 5062 N. Kronenberg ay -1984 
Fix yet another bug in leaving port offline, but 
continuing to run th 
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v03-032 NPK3061 N. Kronenberg 9-Aug-1984 
Fix CLUB check in CLEANUP_PDT. 
v03-031 NPK3060 N. Kronenberg 1-Aug-1984 
Init local port status to have loop back datagrams 
enabled. 
v03-030 NPK3059 N. Kronenberg 25-Jul-1984 


Fix problems with deallocating PDT before deciding 
to call BUGCHECK with a nonex PDT address. 


v03-029 NPK3057 N. Kronenberg 23-Jul-1984 
Liminate override of max port reinit retry count 
f system disk or clustering requires Cl. 
Now port unconditionally shutdown if retry count 
exhausted. Difference is that now, if clustering 
or if — disk available via the he port, 
be grecneshe unless there is another SCS speaking 
ort left. 
ve the above check for ereten bugcheck to CLEANUP_PDT-- 
previously the analogous check was in TEST_SHUTDOWN 
which was called only on each reinit. 


v03-028 NPK3055 N. Kronenber 14-Jul-1984 
Add 10v8 gf PDTS$W_STDGUSED/DYN in_INISPORT. 
Put 11/750 SID in R1 instead of RO and pass to new 
error log ~ routine, SL OGRCPU REV. 
nove por fline if 11/750 ucode not up to at least 
ase 10. 
Make CLEANUP_PDT do maint init on port just in case. 


v03-027 NPK3054 N. Kronenberg 24-Jun-1984 
Log error if CPU is 11/750 and rev level _is insufficient 
to support ci port. Ucode rev must be 97 (base 10) 
or greater. 


V03-026 NPK3048 N. Kronenberg 5-Apr-1984 
In TEST_SHUTDOWN, override retry max of 10 if this 
system 1s part a cluster. I.e., never leave the 
port offline, because it may prevent the cluster from 
running and will certainly prevent this system from 
doing anything useful. 


V03-024 NPK3047 N. arenespery 15-Mar-1984 
For VAX 8600, set bystes hardware type appro ctotely, 
When building a PDT, add it to the list of SCS speaking 
PDOT's. When removing a PDT, remove it from the List. 
Init new PDT vector, PDTSL STOP vcs. 
Near the end of port initialization call CNFSCALC_POLLSW 
to compute the estimated time to do a full sweep of the 
configuration poller. 


v03-023 TMK0004 Todd M. Katz 07-Mar-1984 
t is no longer necessary to broadcast messages to _OPAO when 
t is Piscovered, during gonteo: jer initialization, that 
SCSSYSTEMID has not been initialized to a non-zero value and 
that the port is going to be left offline. This is because the 
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error Logging of this error condition has been modified to 
notice that the existance of this error should also be broadcast 
to _OPAO, and does so. 


I have god! tied the routine TEST_SHUTDOWN so that the port 
re-initialization message that is broadcast to _OPAO includes 
the number of retries left. 


v03-022 TMKO0003 Todd M. Katz 21-F eb-1984 
Fhenge unit and port initialization so that they proceed at fork 
IPL instead of at IPL$_POWER. This requires these changes: 


1. Add a new routine INISFORK. This routine is assumed to be 
called at elevated IPL with a routine address in R35 which is 
to be jumped to at fork IPL. INISFORK will extract the fork 
block from the appropriate fork queue in an atomic fashion, 
if it has to, and create a fork process before returning 
to its caller. When the fork process resumes, it does so 
within INISFORK, which proceeds to jump to the routine 
address passed to it as input. Throughout this procedure 
proper use is made of the fork block interlock Dit. 


tb tb 4 
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If the unit initialization routine has been called and the 
port has not yet been initialized then all miscellaneous 
errors within the configuration register are cleared, device 
interrupts are disabled by placing the port in the 
un-initialized state, and the routine INISFORK is called 

oe oes ne remained of the unit initialization maybe done 

at for . 


3. Because port initialization proceeds at fork IPL there is 
4 age er any need to fork in order to print out messages 
° ° 
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Because purt initialization proceeds at fork IPL, 
EXESALONONPAGED maybe called to allocate whatever non-paged 
pest needs to be allocated. This means that the routine 
IPL_ALLPOOL (INISHIPLALC) maybe deleted, and that the funny 
ames that were being played with the IPL value in the pool 
eader area, so that the allocation of free datagrams and 
poquenas messages could proceed at IPLS$_POWER, can be 
stopped. 


5. Because port initialization used to proceed at IPLS_POWER, it 
never mattered when device interrupts were being enabled. 
However, port initialization is now being done at fork IPL 
so it has become important not to enable device interrupts 
until after everything else has been done and just before 
port initialization terminates. 


It becomes an implicit assumption, that INISPORT is only | 
called at fork i L with device interrupts disabled, and with 
no outstanding interrupts. 


TMKO002 Todd M. Katz 17-Feb-1984 
Change the text of the message that is printed out on the 
operator's console when it is discovered that SCSSYSTEMID 
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is unitialized, and has a value of 0. 


v03-020 NPK3044 N. Kronenberg 6-F eb-1984 
Replace queuing eI ratituous qeseqrens to the port 
wees queve (to fill the cache) with queuing of an 
additional SCS$GW_PAPPDDG getagrene. The additional 
datagrams are intended to handle error Log datagrams 
not associated with any particular connection. 


v03-019 TMKO0001 Todd M. Katz 27-Jan-1984 
Before ol Locos ing the PDT, check for a SCSSYSTEMID of 0. 
If eych a SCSSYS EMID is found, log the error condition, 
notify the operator's console via an appropriate set of 
messages, and keep the port off-line. 


v03-018 NPK3039 N. Kronenberg 11-Jan-1984 
Remove return of top unused portion of pool before PDT 
back to pool. No return can be done if PDT allocated 
from LRP, so never return. 


v03-017 NPK3037 N. Kronenberg 11-Nov-1983 
Comment inputs to INISPORT. 
Add check to INISPORT that command queues and response 
Queue are empty prior to starting port. If queues 
aren't empty, attempt recovery by setting them empty. 


V03-016 NPK3035 N. Kronenberg 21-0¢ t-1983 
Fix calculation of global page table length. 
v03-015 TCM0002 Trudy C. Matthews 19-Aug-1983 
ific path to CPU-dependent code that sets 


Add SUPERSTAR-spec 
CPU type and port device type. 


V03-014 NPK3029 N. Kronenberg 14-Jul-1983 
Numerous enhancements for V4.0. 
Add fork eregese call, SENDRGDG, to SCS offset table. 
Set max block xfer byte count in PDT. 
Allow sanity timer to be enabled. 
Add routine TEST_SHUTDOWN to check if port can be 
reinitialized or must be left offline and to print 
operator warning if appropriate. 
Add init of for “2 for msg fork block in ucb. 

Add SPAUCBDEF and SODBDEF. 


v03-013 NPK3024 N. Kronenberg 18-May-1983 
Add comments explaining variable network header. 


v03-012 KTA3046 Kerbey T. Altmann 03-Apr-1983 
Redo for SCS/PPD split. 


v03-011 TCMO001 Trudy F Matthews 29-F eb-1983 
Added an 11/790-specific path to CPUDISP macro which sets 
CPU type and port device type. 


v03-010 NPK3021 N. Kronenberg 28-Feb-1983 
Fix setting of "vV750° cpu type. 
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v03-009 NPK3010 N. Rrencavers 9-Nov-1982 
ag BUILD_PDT to set Cl PDT type; modify INISPORT 


to set local"port number in PDT rather than maximum 
port number on this Cl. 


v03-008 NPK3009 N. Kronenberg 2-Nov-1982 
Alseys fill in BDT info in newly created PDT in case 
multiple ports per system. 


v03-007 NPK3004 N Erenenbers 30-Jul-1982 
Add setting of C1750 device type in UCB. Add asc 
CPU type for start handshake. Add check for 11/750 
status, NOCI, before initializing port. 


v03-006 NPK3001 N. Kronenberg 25-Jun-1982 
Fix to allow loading of ucode into rom/ram ports. 
Enable read back of loaded ucode to check it. 


v03-005 ROW0101 Ralph 0. Weber 10-JUN=1982 
Change ordering of port initialization operations to that 
Ereesece by Barry Odonoghue in his 9 June mail to Nancy. 
he proposed order is as follows (the parenthetical letters 
indicate eae greet previously employed by this driver): 


et 
Wait for MIF 

Check that only PIC is set in PSR 

Release PSR to port (this should clear MIF) 

Enable interrupts 
Write PECR 
The intent of the new ordering is to prevent enonpe tes 
interrupts which can occur if interrupts are enabled while MIF 
is set as the result of PIC (Port Initialization Complete). 
This change will be in a new driver image shipped in v3.1. 


V03-004 ROW0100 Ralph 0. Weber 9-JUN-1982 

Add a high-IPL allocation jacket around the code which 
allocates and queues extra datagrams for start handshakes 

and extra message buffers to fill the port cache. This jacket 
will allow the calls to EXESALONONPAGED, called within the 
SCS$ routines, to be made from IPL$_POWER in the same way that 
a similar call is made within HIPL_ALLPOOL. 
This change wi'l be in a new driver image shipped in v3.1. 


v03-003 ROW0094 Ralph 0. Weber 7-JUN-1982 
Add calls to error ogg ng routines in BUILD_PDT, BUILD_TLB 
BUILD_BDT, and INISPORT. Add necessary reference to SPRERDEF 
macro. Correct branch destination out of range, caused by new 
code, in BUILD_BDT at BNEQ INIT_CRB. 
This change will be in a new driver image shipped in V3.1. 


v03-002 NPK2019 N. Kronenberg 6-Apr-1982 
Fixed bug in Setting of device type in UCB. 
Remove unit init JSB to INISBRK. 


v03-001 NPK2016 N. Kronenberg 18-Mar-1982 
Fixed .TITLE 
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8 16-SEP-19 
18-SEp-| 
-SBTTL DEFINITIONS 
; Set PSECT to driver code: 


9 
9 
> -PSECT $$$115_DRIVER,LONG 


: 
 : 
4 
4 
5 
$F renteme definitions (LIB.MLB): 


.nocross 


PAM 
Gan 


$UCBD 
SVECDEF 


SPAERDEF 


SPPDDEF 


984 0 


: PADRIVER definitions (PALIB.MLB): 


1: 
1: 
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Channel Request Block format 

Complex Buffer format 

Device type codes 

Device Data Block format 

Structure type codes 

Define laterrust oriorit ties 

Protect from machine check "dettnittons 
Port Descriptor Table format 

Internal processor register definitions 
System service success codes 

Unit Control Block definitions 

CRB vector dispatch block offsets 


Port driver error code values 
Port -specific PDT extension 

C1 port register definitions 

PA specific extension to UCB 

PPD message layer 
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5 LSBTTL TABLES OF INITIALIZATION DATA 


s¢ 

; The following table gives word offsets for fork process $Cs calls. 

3; Offsets are relative to the address of the controller initialization 
3; routine, PASCTLINIT. 


: Macro to generate the table and ASSUME statements about PDT format: 


.MACRO SCS_OFFSET_TAB ENTRY_LIST 
SSSENTRYNUM=0 

-IRP ENTRY ENTRY_LIST 

“WORD <FPCS'ENTRY=PASCTLINIT> 

: NE $SSEN 

ASSUME SSSPREV+4 EQ POTSL_*ENTRY’ 


.EN 
SSSPREV=PDTSL_‘ENTRY' 
a > tebe imamenedehent 


No entries in table yet 

For each entry in the List... 
insert offset from ctl init, 
and for entries after the Ist 
specify assumed PDT adjacency 


Set previous entry as this entry 
; Step entry count 
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ASSUME SSSPREV+4 EQ PDTSC_SCSEND 3 FT 
WORD 0 : Of 


.ENDM © SCS_OFFSET_TAB : 


nal PDT assumption 
fset table terminator 


oooo 


Sooooooooco 
Wine & 


: Table itself: 


PASSCSOFFSET:: 
SCS_OFF set Ie <- ; Invoke macro to define offsets 


OOCOCCOOCOOSOOOSOOSOSOSOSOOOOOOOoOoOSoOO 
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MAPBYPASS,- 
APIRP, = 
MAPIRPBYP, - 
QUEUEDG,- 
QUEUEMDGS, - 
RCHMSGBUF .- 
RCLMSGBUF .- 
REJECT, = 
REQDATA,= 
SENDDATA, = 


SENDDG, = 
SENDMSG,- 
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¢ SNDCNTMSG,= 
NMAP,- 
4 READCOUNT, = 
5 RLSCOUNT,= 
§ MRESET,= 
MSTART,= 
8 MAINTFCN,= 
SENDRGDG,- 
0 0 STOP_VCS,= 
91 > 
E 398 c+ 
E 94 ; The oobi table is a List of word offsets from the CI configuration 
33 : + 3; register of Cl register addresses to be kept in the PDT for quick access. 
ae 
3; Macro to generate table: 
OSE 39 M t te tabl 
Ose col 
33 4 rt «MACRO REG_OFFSET_TAB REG_LIST 
S03 404 $SSSREGNUM=0 3; # table entries =0 
OO3E 405 -IRP) REG REG_LIST 3; For each register in List, 
OO3E 406 -WORD <PA_'REG'=PA_CNF> i enter offset from config reg 
OO3SE 407 IF NE SS$RE ; and for entries after first, 
Ve = ; verify PDT adjacency 
QOO3E 408 ASSUME SS$SPREV+4 EQ PDTSL_'REG' if T ad 
3 £93 -ENDC 3 
SO3E 411 SSSPREV =PDTSL_'REG' 3 Set this PDT entry to previous 
003E tg S$SSREGNUM=SSSREGNUM+1 3; Step entry counter 
Oate ei? -ENDR 3 
ASSU V+4 EQ PDTSC_PAREGEND ; Verify final PDT offset 
; 3 ai? SSUME SSSPREV+4 E TSC EGE ify final T off 
Oo Re rts «WORD -1 ; Table terminator 
09 — 419 .ENDM REG_OFFSET_TAB 
ge is 
OSE 4 § 3; Table itself: 
Ose 8a 
3! ? 5 PASREGOFFSET:: 
OSE 4 $ REG_OFFSET TAB <= ; Invoke macro to define offsets 
O3E 4 3 CNF,- : Configuration register 
; —E 4 PMC,- ; Port maint control reg 
—E 430 PS,- : Port status register 
— 431 ca6,- ; Command queve 0 control 
—E 4 § CQ1,- : Command queue 1 control 
—E 4 PSR,- ; Port status release register 
E 434 DFQ,- ; Datagram free queue control 
—E 435 MFQ,- 3 nessage free queue control 
—E 4 § MTC,= ; Maint timer control 
— 4 PFAR,= : Fail address register 
. ; Port parameter register 
—E 438 PR Port t ist 
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—E 439 
? ay -cross 
? <2 ; Processor type in ASCII for start handshakes: 
3 444 
22 ret INIST_HWTYPE: : 
30 38 37 56 086 Gey ASCII ‘v780' ; Assume 'V780" to start with 
00000061 005A 449 MIN_750_REV = 97 3; Minimum 11/750 CPU ucode 
Ben $29 ; rev level to support ci750 
SA 451 
OSA $36 ; 
Opa $27 3; Messages to send to _OPAO on serious port errors: 
SbeA 455 
Q000000D Q05A 456 CR = 13 ; ASCII for carriage return, 
QOO0000A OOSA 457 LF = 10 ; Linefeed, 
00000007 OOSA 458 BELL =7 3; and bell 
OSA 459 
O5A 460 INISMSG_INIT:: 
43 20 2c 3 78 41 50 $3 07 0A OD 00" OOSA 462 eASCIC <CR><LF><BELL>'%PAx0, CI Port is Reinitializing ( xxx Retries Left). | 
65 52 20 73 69 20 74 § gf 50 20 49 B68 
67 $f 69 7A $3 6C $1 § 4 69 6 $° 07 
69 72 74 65 3 $s? 8 78 78 $0 § 9 O7E 
43 4! 20 2E 29 74 66 65 4C ? 6 O8A 
72 72 45 Se 65 68 74 20 6B 63 65 68 pars 
A OD 2E 67 6F 4C 20 72 6F ODA 
50 005A 
OOAB «463 
ie rhe: INISMSG_OFFL:: 
50 $3 07 OA OD 00° pas 466 -ASCIC <CR><LF><BELL>*ZPAx0, CI Port is going Offline. '<CR><LF> 
74 72 6F 20 20 49 008 
66 4F 20 67 6E 69 Boee 
0A 0 OCF 
2 0AB 
0D1 467 
00000027 00D1 468 RETRY_OFFSET = 39 ; Byte offset to retry count 
0001 ri 3; numerical field in port 
49 +n ; re-initialization message 
00000006 8p +28 CTRLR_NAME = 6 ; Byte offset to device 
0D1 47 : controller letter (x) 
OD1 474 ; In above msgs 
D1 486475 
D1 $76 
D1 477; 
od $78 3 Polynomial table used to calculate CRC for loopback datagram: 
D1 480 
D1 481 CRC_TABLE: 
Di 4 ¢ 
90000000 D1 4 -LONG 0 
10B71064 DS 484 -LONG *X1DB71064 
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vou~001 UNIT_INIT 18-$Ep= 1986 O1s4ei37 LOMIVER. SReTPALNITS man:2 | O88, 


-SBTTL UNIT_INIT 


The at he type is set, in the UCB depending on what CPU we are 180," 
on, t this. $ an rye Oger Eh the one" 5e type is C1780; . Tae 
then ie Covies f 3 fl he CPU is other than an 
alter the ASCII CPU type C1730. it th If this is some a 5, tye we really 
some S over get here, so we just exit leaving the unit offline so 
can e use 


Then the device is initialized by calling subroutine INIT_CTLR. 


Inputs: 
R3 “Address of PA configuration reg 
R4 “Same as R3 
RS “Addr of UCB 

Outputs: 
RO-R3 “Destroyed 
Other registers -Preserved 
INIST_HWTYPE Set to proper CPU type in ASCII | 


ASSUME DT$_C1750 EQ DT$_C1780+1 


— 2 3 2 > > 2 —) > —) 4 — bs bs — bs — 2b tb tb 2b ob as bb bs tb 2b as bs a a a a tn a te 


PAD DADA BBS BS BS BN BN tt at tt tt tt SS 


falelelelelelelelolelelelalelaleloleleoleleleleoleloleloloalola) 


-ENABL LSB 
PASUNITINIT: : | 
41 A5 01 90 MOVB #0T$_C1780,UCBSB_DEVTYPE(RS) ; Set the device type to C1780 
CPUDISP <<780,C1_780>, - ; * Dispatch on CPU type * | 

<750,C1~750>, = 
OTRER CPu>, - | 

<790,C1_790>, - 

<785,C1~785>> 
C1_750: | 
41 A5 9% INCB uceee DEVTYPE(RS) ; Step device type to 750 
FFO9 CF «8635 90 MOVB #*A/57, INIST_HWTYPE+2 ; Change CPU type to ‘v750° 

10 «11 BRB C1_780 ; Join common code 
C1_785: 


FFO3 CF 35 MOVB #*A/5/,INIST_HWTYPE+3 =; Change CPU type to 'V785" | 
09 C1_780 


C1_790: 


MOVL #°A/8600/, INIST_HWTYPE ; Change CPU type 8 *8600' 
Device type = 80 


C1_780: ; * End of CPU dependent code * 


FEFS CF 30303638 8F D0 


PUPP Be BS BE BBE EE EAA AAAI NIIP POPONIPPONINININY 2 2 OOO OS SH OOOOOOCOCOO 


NOME WAN 0 ONO NE WIN OOO NOME WIN @ OOO NA UNE WIN CO OONOA UE AWN OOONOAUE wit 


0 OD OD OD On 8279 I IN VV nn a kk tk tk mt tt a ss ts ss = ss = —s = —s 2s 2 - - - 


—e 
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4 1 CDORIVER.SRCJPAINIT.MAR; 2 


161 
90 16 38 MOVB #IPL$_SCS,- » Set ipl for fork block to 
0OAB e8 1 j 60 <UCBSC_MSGFKBLK+UCBSB_F 1BL3 (RS) 
166 61 ; _start up msg to opal 
54 a5 8B 198 86 TSTwW 1 a taidhataae 3 Is this unit 0? 
1 16 6 BNEQ $ ; Branch if not 
1 138 rt: BS8B INIT_CTLR 3; Else init controller too 
16D ¢: OTHER_CPU: 
16D 6 
05 016D 68 10$: RSB 3 Done with unit init 
the $2 
16E 0 
016E 71 -DSABL LSB 


CONTROLLER INIT 1o-SEb= 138s 81:98:81 YORIVES. eaeSe air Gar 2 


16E 73 -SBTTL CONTROLLER INIT 
166 898 3+ 
16E og: ; The controller initialization entry as seen by the system, PASCTLINIT, 
16E 7 ; is a noop since initialization can't begin without the unit 0 
16E 4 : Actual controller init is galled from unit 0 unit initialization with 
195 4 : the same inputs as unit init. 
16 1 3 Inputs: 
16E : : R3 “Addr of PA configuration register 
16E 4; RG -Same as R 
| $ 3 RS -Addr of UCB for unit 0 
the 7 : Outputs: 
S18 39 : ALL registers “Preserved 
giee $a 
Hhe3 236 PASCTLINIT:: ; Controller init called by system 
05 O16E 594 RSB ; Return 


ne 
we 


CONTROLLER INIT 


1 


NUIT Wn 
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$ ; Controller initialization called from unit 0 init. 


6 
16 
i 
16 600 -ENABL LSB 
16F 601 INIT_CTLR:: 
18 § TST UCBSL_PDT(RS) ; Built structures yet? 
1 6 BEQL BUILD STRUCT 3; Branch if not 
17 604 BICW CBSA_ONLINE,- ; Set unit offline to show 
17 605 COSU STS (Ro) 3; port init being done 
179 «6 $ MOVL UCBSL_PDT(R5) ,R4 ; Get PDT addr 
17E 6 SPRICTINI = ; Protect from non-ex port 
17E 6 3 B*1$, #MCHKSM_NEXM 3 
18A 6 MOVL #PA_PMC_M_MIR,- 3 and maint init port 
18C 610 @PDTSL_PMC(R4S : 
18F 611 SPRTICTEND 1$ ; End of mcheck protection 
05 50 =«=«€9 i el¢ BLBC RO,5$ 3 if meneeh dont mark port 
3 powered up 
02 as’ 019 614 BISW #PDTSM_PUP,- ; Set power up on this 
0110 C4 195 615 PDTSW_CPORT_STS(R4) ; port 
19 61 
00 =«€E2 198 $19 5$: BBSS #POTSV_PWF_CLNUP,- ; Branch if SYSAP notification 
A PDOTSW_LPORT_ ’ ; underway; else set pwf recov 
08 0110 C4 194 61 TSw_CPORT_STS(R4),10$ l f 
; in progress, 
51 0364 8F HS | 620 MOVZWL #SS$_POWERFAIL,R1 3 eet oun status to give SYSAP's, 
FESA’ 30 aA ° 1 BSBW ERRSPwF_RECOV ; call recovery startup 
05 B1A8 . § 10$: RSB ; Return 
O1A7 625 BUILD_STRUCT: ; Complete unit init at fork IPL 
64 64 D0 O1A7 6 § MOVL PA_CNF(R4),PA_CNF(R4) ; Clear all miscellaneous errors 
04 AG 6010S 0s «*OIAA 6 MOVL #PA_PMC_M_MIN,PA_PMC(R4); Place port in un-initialized state 
53 000001B88'EF 9€ Ag 628 MOVAB CHECK_SYSTEMID,R3 3; Address of where to resume at fork IPL 
0545 =31 B183 ° 4 BRw INISFORK : Fork... 
0188 631 -DSABL LSB 


PAINIT 16-SEP-1984 01:08:59 VAX/VMS Macro v04-00 Page 1 
yOenO01 CONTROLLER INIT 18-$6-1 98 9498: 33 DRIVER. SRCJPAINIT.MAR;2 ° (8) 
1e8 Se 
18 5 : The SYSGEN parameter SCSSYSTEMID must be sent to a non-zero value. If it 
18 § ; has not been so initialized, log this error condition and do not allow the 
18 ? 3; port to cone on-line. 
1B g39 
18 640 -ENABL LSB 
18 641 CHECK_SYSTEMID: 
OO0000000"GF oD 18 otg TSTL G*SCSS$GB_SYSTEMID 3; Has SCSSYSTEMID been initialized? 
OE 1 18 64 BNEQ BUIL : Branch if it has 
ey : 1¢ 644 TSTW G*SCSSGB_SYSTEMID+4 ; Are we sure its been initialized? 
+ oe? BNEQ BUILD_POT : Branch if it has 
50 98 9A OIC gt$ MOVZBL #PAERSK_ES SCSID,RO ; Log that SCSSYSTEMID is 0 
FE32" 31 Bi se 648 BRw ELOGSINTT_SwWERR 
1CE 649 -DSABL LSB 


S> 


1? 
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voeeb01 BUILD PDT oreo i8be 81:98:83) POMIVES Sacco eT ean. 86 Pee 12 


Ie é 7 -SBTTL BUILD PDT 
1¢ : 
1CE 654 ; PDT adjacency assumptions: 
Ice 8G 
1CE 6 5 ASSUME PDTSL_FLINK EQ g 
1CE $28 ASSUME PDTS$B_PDT TYPE €0Q 
1CE 659 ASSUME PDTSW°SIZE EQ 8 
1CcE 269 ASSUME 4 =p Ze ee EQ PDT$B_TYPE 
1CE 1 ASSUME PDT$B B_TYPE+¢ EQ PDT$B_SUBTYP 
ite oes ASSUME POTSB_ SUBTYP+1 EQ PDTSC_SCSBASE 
3 oC) -ENABL LSB 
HS Pe BUILD_PDT: 
51 0560 BF 3¢ +S 668 MOVZWL #<PDT$C_PALENGTH+512>,R1 Enough for a PDT + 1 p og 
00000000 ' GF 1 1D 669 JSB G*EXESACONONPAGED 3 Atloca e@ non-paged pool for PDT 
06 E 109 §=©670 BLBS R : Branch if success 
DC 3: 6771 ASSUME PAERSK_ES_POOL EQ 0 ; Else, log a pool allocation 
Bs 1DC o7¢ CLRL 3: error. 
FEF’ 0 1DE 67 BSBW ELOGSINIT_SWERR 
05 Ve) ore RSB 3 Return with unit offline 
3 36 b0 16s 976 10$: MOVL R2,R0 : Save address 
5 EO ¢ DE 1 67 MOVAL POT$C_PQB+512(R2),R2 : Round PQB offset up to 
5 1FF BF AA O1EA 678 BICW #511,R2 3 next page boundary 
52 1€0 +4 C2 OF 679 SUBL #PoT$c_poB,R2 3; _and compute corresponding PDT base 
00 cs ¢ dO aire 680 MOVL R2,UCBSL_PDT(RS) § saes PDT addr 
3 2605 00 O1FB 681 MOVL  UCBSL_CRB(RS),R3 : Get CRB addr 
10 A 32 D9 OFF 6 é MOVL Re ,CRBSL_AUXSTRUC(R3) ; and save POT addr in CRB 
08 AO 5 A 03 SUBW3 Re PDTSy SIZE(RO) Fix 3 size of unused memory 
OA AO 0 BF BO 0208 684 MOVW #DYNSC_SCS, BOT $8 _TYPE (ROS d type 
82 D4 O20E 685 CLRL = (R2) + init PDT. unused Longwd, 
82 01000000 8F D 10 686 MOVL. #PDTSC R2)+ : unused d $ bytes and port type 
2 51 O8 AO A 0 17 687 SUBW3 = PDT$W stein) R1,(R2)¢ ; 
82 0560 8F B60 1¢ 688 MOV #<DYNSC SCS PDTa8 + DYNSC sc tad5s 3 structure subtype and type 
53 30 a3 00 0 i 6 3 MOVL CRBSL_ IRTDSVECSC INITIAL(R3),RS ; Get a t addr of controller 
routine 
51 FOD7 CF SE 8 5 691 MOVAW PASSCSOFFSET,R1 ; Get addr of table of offsets 
3 ry O36 : to SCS entries in PADRIVER 
50 1 75 A 694 208: CVTWL = (R1)+#,RO ; Get offset to nowt SCS routine 
3 D 695 BEQL 0$ : Branch if no more 
82 53 C1 F 69 ADDL3 RO,R3,(R2)+ 3; Add offset from controller init 
69 3 to addr of controller init 
69 3; and store in PDT 
FS) so § 4 BRB 208 3; Get next offset 
7€ 54 7D 701 30$: MOva Rae phd : Save R4 
00 00 i 00 2¢ Be. : MOVCS #0,# Zero Pot Sen here to 
25C 8F p 7 scboree. “ BQELOGOUT - porsi _SCSEND>, 
ge 4 704 (R2) ° Logout are 
33 3 7D 41 705 Ova td : Restore R4, 
52 84 C d0 44 7 $ MOVL UCBSL_PDT(R5) .R Get base of PDT again 
OOAC C2 DE 0249 7 MOVAL PODTSL “UAITORLER ),- : Init the pool wai 


een BUILD PDT 


AC C 2p 
AC C DE 
ton Be 
¢ C1 
§ 8 
ee ae 
"CF 86C1 F 
me 
4 i dO of 
190 ¢ C3 3 
C 74 
194 § gt 
o0BCc C2 cE uA 
52 0064 C2 DE 44 
51 FOB6 CF SE Bc 
$8 
o> TH RS 89 
06 1 8 8C 
82 54 50 (1 8 
029 
FS 11 «(029 
8 94 
52. 0084 $3 DO 94 
00DC Ce 5 00 99 
174 € DE 9 
174 € A 
174 € DE A 
178 ¢ Ag 
03 90 OQ2ACc 
0180 cs AE 
0 90 Bi 
0181 C B3 
0100 C DE B6 
0208 C BA 
108 ¢ dE BD 
eo C C1 
8 C dO C4 
0210 ¢ 02Cc8 
00000 8 ¢ AO ce 
C D 
C dO D4 
00000600" GF AO DB 
¢ie C I 
EO C DE E4 
218 C E8 
Os i) EB 
0224 f E 
8 dB F 
00006 Q : F 
‘GF 00 F 
O22C C2 FB 
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POTSL DGNETHD(R2) 
1,PDTSL_MAXBCNT (R2) 


PDTSC_PAREGBASE (R2) ,R2 
PASREGOFFSET,R1 


(R1)+,RO 


RO,R4,(R2)+ 


408 
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DT$W_MQELE 
POTSC -PoB (Re 
POTSL. VPQB(R2 


#PRS SBR 
POTSC OP TBASE(R2) 
$ SLR 
POTSC SPELENCR2) 


:08:59 VAX/VMS Macro v04-00 Pa 1 
98:3) DRIVER. SRE tip AINIT.MAR;2 = (5) 
queue 
to empty 
b Set eres of message header, 


SCS header 
Seve 9 size of datagram header, 


scs aortten ao 

Set size of total dg header 
including PPD/SCS, and net 

Calculate size of network header 


= 98%, bytes per block xfer = 


shes to addr of PA device 
registers accessed via PDT 

Get addr of table of offsets 
to device registers we want 


Get next offset 

Branch if end of offset table 

Add offset to contig reg addr, 
and store in PDT 

Get next offset 


Get base of PDT again 
Save in PDT UCB 0 addr 
Init formative 

PB list 


to empty 


TSM_ PRV _LBS>,- ; Set current/previous 
TSM_PRV_LBS>,- ; 
; Set up addresses 


sooguess status to 
eset: paths 


of datagram and 
message free ma 
headers for port 
; Set up dg and A, & meme 
entry sizes in 

for port 


: Queue entry size = 


PPD/SCS header 
+ SYSGEN param 


; Set VA of PQB within 
; Set PA of base of SPT 


and SPT Length 


; Set VA of base of global 


page table 


.. = 
PAINIT 16-SEP-1984 01: 9 VAX/VMS Macro v04-00 Pp 
voeeo01 BUILD PDT 18: -SEP- =1382 te 98: 3} DRIVER. SRCIJPAINIT.MAR;2 wt 
‘GF C1 Fe 765 ADOL3 a NSGL_MAXGPGCT,- ; and GPT Len which is 
cs £66 L_SP BTLEN (R2),- 3; the sum of the global page 
C ; te PDTSt = _GPTLEN(R2) 3 See ent q ts count (g gbal 
3 page table base=s ase.) 
51 Q0000000'GF DE . if MOVAL G*SCSS$GL_PDT,R1 3 Got base of SCs sort List 
50 rue 11 771 60$ MOVL (R1),R0 3; Get next port 
3 1 14 ore EQL 70$ 3 Eransh if none 
51 i) 1 77 MOVL RO,R1 3 Else save next PDT as previous 
61 19 ae BRB 60$ : Continue down the List 
61 52 00 18 o78 70$ MOVL R2,(R1) ; Hook this PDT to end of List 
1E 778 -DSABL LSB 


<2 | 


| 
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an i 
1 BUILD TEMPLATE LOOPBACK DG =SEP=19 DRIVER. SRCJPAINIT.MAR; 2 


i q 9 -SBTTL BUILD TEMPLATE LOOPBACK DG 
1 3+ 
1 f 4 ; Allucate and initialize the template loopback eeoeres except for local 
if 4 ¢ : port.number and CRC. These are recalculated each time power is recovered. 
. £2. § 3; Note that the template loopback datagram need not have a network header, 
1s 4 ; nor have PPDSW_SIZE be a negative offset. 
ie 789 | 
1€ 790 -ENABL LSB 
1 791 
I 18 BUILD_TLB: | 
51 0046 BF 3C¢ 1 794 MOVZWL #>PD$C_LB_LENGTH,R’ 3 Get total template size 
00000000'°GF 16 5 795 JSB G*EXESALONONPAGED ; Allocate non-pa ed pool for template | 
08 50 «EB 9 79 BLBS RO, 108 : Branch if got i 
8 . 2 ASSUME PAERSK_ES_POOL EQ 0 ; Else, log a pool allocation | 
50 4 C 798 CLRL : error. 
FCCF* 0 8 E 799 BSBW ELOGSINIT_SWERR 
0320 1 ; i on0 BRW CLEANUP_PBT ; Go clean up allocated buffers 
08 A2 3 80 § 506 10$: MOVW R1,PPD$W_SIZE(R2) 3; Save structure size and 
BO 0338 Hi MOVW #DY DG,- 3; «type 
OA A 033A 804 PPD$B_TYPE (R2) : | 
OD A 9% «0 HS 805 CLRB pe STATUS (R2) : Init template status = 0, 
98 O33F 806 MOVZBW #PPDS$T_SNDLB,- 3 opcode = SNDLB, 
OE A 0341 807 PPD$B_OPC (R25 ; 
0343 808 MOVW #PPDSC _LBDAT LEN. ; LB length to # of 
0345 809 PPDSW_CENGTHTR2) ; bytes of data 
Sre4 ny CLRL R1 3; Generate LB data pattern 
b3e9 aig 20$: MOVB R1,PP0$B_LBDATA(R2)CR1] ; of bytes = 0,1,2.... 
O34E 81 AOBLEQ #PPD$C _LBDAT_LEN,R1,20$ : ... (eDAT_LEN-1 
035 814 MOVL UCB$L_PDT(R5),RO 3; Hook template to 
035 815 MOVL R2,PDT$L_LBDG(RO) ; POT 
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SCS LAYER INITIJALIZATION 


-SBTTL 
g + 
3; Now call into 
BSBW 
MOVL 
MOVZWL 
MOVL 


18-SEP-1986 O1:15:31 


SCS LAYER INITIIALIZATION 


AX/VMS Macro Vv04-00 


the SCS layer so it can do any needed initializations. 


SINIT. SWERR 
NUP_PBT 


Do it 
Restore PDT address 

Set count of BD's 

and address of 

BOT in case BDT 

has already been created 
Branch if success 
Else, log a pool allocation 
error. 


Go clean up allocated pool 


DRIVER. SRCJPAINIT.MAR; 2 


voe~001 


SEP=1984 01:08:59 VAX/VMS Macro v04-00 Pa | 
INIT POLLER TIMER AND TRACE FUNCTION mt iae 1 8} 08: 3} DRIVER. Sh RC) PAINIT.MAR;2 = (%) 
-SBTTL INIT POLLER TIMER AND TRACE FUNCTION 
i * initialize timer to wake driver up and insert CRB on timer queue. 
-ENABL LSB 


ees 


00000000 ° GF 


16 


INIT_CRB: 


MOVL UCBSL_CRB(RS),R ; Get CRB addr 


ig BSBW CNPSERLCGNTOUE> : Set to wake up basic timer 

4 ; interval from now an 

re JSB G* LOCSTHREADCRB : put CRB on timer queue 

50 IF DF pasoceus : Conditional init of debug facility 
51 BSBW TRCSINIT 3; Init trace buffer 

26 -ENDC : 

54 -DSABL LSB 


Teer ie er igen eee oe ee _ 


16-SEP-1984 01:08:59 VAX/VMS Macro VO 
04-001 INISPORT, INITIALIZE PORT 1o-SEp-1obe 01:45:37 PORTER. ceed 


E ~SBTTL INISPORT, INITIALIZE PORT 


400 0 3 
SAINT omaR:2 om 43) 


+ 


Load the port microcode, init port hardware, complete initialization 

of the template loopback datagram (in case port number changed while 
powered down.) Allocate and queve free datagrams and messages §° 

; port for future receives. If all this is successful, set unit 0 online, 
clear power fail in progress and set port powered up. 


Inputs: 
R4 “Addr of port gent iquret ten register 
R5 “Addr of UCB of unit 0 
IPL ~IPL$_SCS 


It is assumed that device interrupts are disabled, that there are no 
outstanding interrupts, and that the port is in the un-initialized state. 


ASSUME PDTSW_STOGUSED EQ PDTS$W_STDGDYN+2 
ASSUME PDT$Q_COMQH EQ PDTS$Q_COMQBASE+8 
ASSUME PDT$Q_COMQ EQ PDT$Q_COMQH+ 
ASSUME PDT$Q_COMQ EQ PDT$Q_COMQ2+8 
ASSUME PDTS$Q_RSPQ EQ PDT$Q_COMQS+8 
ASSUME PPDSC_LBDAT_LEN+7 LE 255 

-ENABL LSB 
INISPORT:: 


+O 0 0.0.09 09 00 09 00 Cd CD GD Cd OD OD C0 CD CD CD Cd CD OD CD CD CD CD CD CD GD CD CD CD 0D CD CD00 CD 


WOOU MMMM MMMMMMMmMMmMmmmmmmmmmmmmmmmrnrmnrnirrnicricricriery 


A. AANA. AI A.A AAI AIANI AIA NAIA AINA AAAI AIA NIAAA AAAI 


COOCOCOCOCOCOCOOCOOCOOOCOCOCOCOCOOOOOOOOCoOoOO 


WOOO OO0000 0000090000 09 69 C9 09 Cd Od Cd Gd OD OD Cd 09 OD OD Cd GD OD OD C9 09 CD CD CD CD CD CD CD CD CD GD 0D CD OD CD CODCOD CD COON CD CD 


—— ~QOODQKOOOOSOO 00000 00 OO W009 09 0909 69 09 69 08 NI NINN NS NNN NN OA AAA AAAOOOmrnmn 
PR OOONOA UNE WIN =O ODNAUE WIN $$ 9 OOD NOAU EWN @§ O OONAUE WN OOONAUES WN" OOONO 


64 64 4! MOVL PA_CNF (R4) ,PA_CNF (R4) ; Clear any misc errors we can 
1000 8F 8B BITw #PA_CNF_M_NOCT,- ; C1750 port inaccessible? 
64 PA_CNF (RAY ; 
03 13 BEQL ; Branch if accessible 
0283 =31 8 BRW PORT_NOTPRES ; Else go handle error 
04 AG 1 0 98 108: MOVL #PA_PMC_M_MIN,PA_PMC(R4); Place port in un-initialized state 
7E 54 D oF mMOVQ R4,=(SP 3; Save registers Coptrexee by subr 
0228 30 he BSBW = TEST_SHUTDOWN : Check if we are shutting down and 
A ; if so, take operator action which 
AS 3 may possibly include a bugcheck 
AS ; _if we can't 90 on without the port 
54 Bf 7D AS mova (SP)+,R4 ; Restore registers 
52 0084 C¢ i) A8 MOVL UCBSL_PDT(RS) ,R2 ; Get PDT address : 
a AD BNEQ 15$ ; Branch if this port is still in business 
0 AF RSB ; Else return to caller without 
359 3: reinitializing it 
Sopogese "Er 01 90 Be 15$: MOVB #1, INISCPU_REV 3; Assume CPU rey will be okay 
30353756 BF FCOB CF 01 CMPL INEST _HWTYPE,#*A/V750/ ; Running 11/750? 
« Bete} C BNEQ CPU_REV_OK ; Branch if not 
51 3E 0B C MFPR #PRS_SIB,R1 ; Read SID (copy of SID in memory 
C ; is not good enough because the 
C ; ucode rev level may have been 
C ; increased by the loading of patches 


4 
965 CHECK_UCODE: 
96 


Cc 8 
PAINIT 16-SEP-1984 01:08:59 VAX/VMS Macro Vv04-00 Page 24 — 
youro01 INISPORT, INITIALIZE PORT 19-$Ee = 1382 8 98: 33 DRIVER.SRCJPAINIT.MAR;2 . (94) 
C 913 ; by the PCS software load mechanism 
C Sf: ; or decreased by failure to load patches 
C 15 i; _following pwr fail recovery.) 
50 51 F8 ef 78 C 318 ASHL #-8 nh ae ; Get ucode rev level in low byte 
61 8F g 91 CA 4. CMPB RO, AMIN, 50_REV : Is CPU ucode sufficient to run port 
9 18 03¢ 18 BGEQ  CPU_REV- : Branch if so 
0256 =) 4 $4 BRW CPU_REV_ERROR i; Go handle if not sufficient 
p 921 CPU_REV_OK: | 
53 00000000'GF 09 D 3 ‘ MOVL G*SCS$GL_MCADR,R3 ; Get base of microcode image 
9 1 DA 924 BNEQ CHECK_QUEUES ; Branch if got microcode image in pool 
50 1 A DC 3=—.-« 9h 5 MOVZBL #PAERSK_ES CODE, RO ; Else, log error indicating that 
FCIE’ 30 4 4 § BSBW ELOGSINIT_SWERR 3 microcode could not be found in pool. 
O26F 31 0 2 2 8 208: BRwW CLEANUP_PDT ; Go clean up allocated pool | 
8 Ee 4 » CHECK_QUEUES: 
20 3B O35 $34 SKPC #0,#<PDT$Q_RSPQ = PDT$Q_COMQBASE>,- | 
O1EO C2 O3E8 93 PDT$Q_COMQBASE (R2) ; Check for any nonzero port BU 
ogee oRe 3; _command queues or response queue 
17 13 O3SEB 935 BEQL LOAD_UCODE ; Branch if all zero Cempty queues) CH 
O3ED 936 SDEBUGCHECK FERRSV_DEB_NEPQ ; Else do optional bugchec CH 
0400 93 3 since on reinit all queues should Cl 
0400 938 ; be empty Cl 
61 94 0400 939 CLRB (R1) ; For recovery, try zeroing byte Cl 
E1 11 0402 940 BRB CHECK_QUEUES 3; and check again | Cl 
0404 941 CL 
0404 hg LOAD_UCODE : 
0404 94 ; 
52. 0400 8F 3C 0404 944 MOVZWL #*X400,R2 3 Set initial MC addr oseuning ROM port 
SF6AO0A1 BF O08 AS OD Re? 945 CMPL 8(R3) ,#*°XSF6A00A1 : Is this code from an all RA 
411 946 ; port file? 
02 12 0411 947 BNEQ 30$ ; Branch if not -= assume ROM 
52.4 Bete ace CLRL R2 ; Else set to load both PROM 
oe fo Bets ge0 30$: MOVa R2,-(SP) ; Save initial addresses 
14 Ag 52 DO 0418 95¢ 40S: —MOVL «—«R2gPA_MADR(RA) ; Give C$ addr to CI 
18 AG 683) 0 41C 95 MOVL_  (R8)+-PA_MDATR(R4) t Write 4 bytes of ucode 
52. 00001000 8F C9 0420 954 BISL3 #*x1060,R2,- ; Step CS addr of h.o. 
429 955 PA_MADR(R4S : word of data 
18 AG 3 36 429 328 MOVZWL (R3)+,PA_MDATR(R4) 3; Write h.o. 2 bytes 
E352 00000C00 BF F2 O4ed 95 AOBLSS #*xC06,R2,4 > Loop till entire image loaded 
52 BE) Oo 7Ds(0435 938 MOV  (SP)+,R2 : Retreive initial addresses for 
4 4 59 ; .read back of ucode 
52 3 4 960 TSTL R2 3 Is this a possible all RAM port? 
2A 43A 961 BEQL START_UCODE ; Branch if so to skip check of 
43C 306 ; possible ROM code that might 
43C 6 3; not agree with our ucode image. 
43C 96 
43C 
4 53C 
4 
4 
4 


E 
EL 
EL 
ER 
ER 
ER 
ER 
ER 
EX 


14 AG 5 4 96 MOVL R2,PA_MADR(R4) ; Set next control store addr 
50 D 4 96 MOVL + ; Get next 4 bytes wes should have 
50 18 AS «D1 «(044396 CMPL = PA_MDATR(R4) ,RO ; WCS ok? 


PAINIT 16-SEP-1984 9 VAX/VMS Macro V04-00 Pa 5 | 
04-001 INISPORT, INITIALIZE PORT 1exSEpa lobe O1ige:8) FORIVER. eaeSe ater T mars 2 a #3) 


12 3 447 970 BNEQ, BAD, UCODE ; Branch if not | 
1404 52 0000900 ef § 44 7 BISL3 #*xT R2,PA_MADR(R4) ; Set to read h.o. 2 bytes of uword 
5 3 ¢ t2 te MOVZWL (R3)4,R ; Get next bytes wes” should have 
50° 18 AG «BT O04 7 CMPW = PA_MDATR(R4) ,RO : Next 2b tes ok? 
03 13 rth aie BEQL 608 ; Branch i 
36 ais BAD_UCODE: | 
01D7.—s«31 t28 3f8 BRW WCS_ERROR : Go handle error 
| 
D6 52 00000C00 BF F2 ces 2 60$: AOBLSS #*XCO0,R2,CHECK_UCODE ; Branch if more to check 
46 o 
466 3 § START_UCODE : 
00000040 ef C8 486 3 5 BISL #PASDIC AM PSA, ; Set programmable start addr | 
00000490 af DO geet $87 MOVL pPRAC -UCODEST,~ : Set microcode start addr | 
DO 0476 989 MOVL Ph hice M_PIC,- : Set port initialize <= mov 
0924 C4 0478 990 O60 Ray ; port state from uninit to “disabled 
0478 991 TIMEWAIT Peet 600» #PA_PMC_M_MIF ,= t for port init done | 
04 99 PA _PMC(R4),L~ : 2" t00 msec 
0750 €9 04A3 99 BLBC OR ; batt, if failed | 
0900 C6 «=2D1 = (04A6 «6994 CMPL PA PS(R4),= 3; Check that port init is done 
08 5 995 #PK_PS_M_PIC ; _and no errors set 
03 13 O4AB 99 BEQL : Branch if sucess | 
0188 = so Beat 44 70$: BRW INIT_PORT_FAIL ; Else go to failure 
50 0084 (5 DO 0480 999 90S: MOVL Uces PDT(R5), RO ; Retreive PDT addr 
14 O09 EF 0485 444 EXTZV ; Extract virtual page # | 
50 0218 CO 488 1001 Pots PaB (RO) .RO : of PQ 
51 00000000'GF 00 048 1008 MOVL Seta SPTBASE ,R1 : Get base of SPT 
50 6140 00 sc 100 MOVL (R1 ; Get PTE for PQB addr 
50 50 14 00 cf 4C 1004 EXTZV #0,# 8 ; Get PFN of PQB addr 
0904 (4 450 09 78 O4CC 1005 ASHL = #9, RO. Oh POBBR(R4) : Convert to phys addr and 
04D 1906 ; _store in the PQB base reg 
04 00000000'GF E 4D2 100 BLBS G*SCS$GB fo eats :; Branch if sanity timer wanted 
oe — 409 1008 BISL +%q PMC_A_M : Else disable it 
04 A4 rt 139) : A_PMC (R&S H 
Q1 00 O4DD 101] 95S: MOVL —-#PALPSR_K PSC, ; Release the port | 
0918 C4 4DF 1 ¢ A_PSR sm J 3 status register to port 
01 DO Q4E2 101 MOVL APR src R PEC,- 3 nally, 
O91C C4 ots ' 13 PA_PEC(R4J : enabie’ the port 
rt 44 ! 1g INIT_LBDG_CRC 
54 pose cS) (OD 4E7 1 8 MOVL UCBSL_PDT(R5) ,R4 ; Get PDT address 
53 0184 C4 00 4EC 101 MOVL pore FLBDG(RGS RS ; Get addr of LB template 
0196 D4 4F1 1020 mMOVB aPDTSC P bs ee ; Seve, pocat port number 
4 A3 fe 1021 eb se PORT < 3: in dg te template 
51 43 8F 3c 4F 1 ‘ MOVZWL POSC ante SATA + PPDSC “LeDAT. LPEN 
0 OOO'GF 16 O4FC 1 JSB GE XE SACDNORPAGED > ALL ocete immer buffer for 
5 1024 ; sett ng up data to calc CRC 
03 50 gs 30 1025 BLBS 0$ : Branch if got 
013E 31 0505 1026 978: BRW PRET LBDG_FAIL : Else go haggte’ cere 


PAINIT 16-SEP-1984 01:08:59 VAX/VMS Macro v04-00 Page 
N » IN L =SEP- stds VER. NIT. ; 
voun001 INISPORT, INITIALIZE PORT 10-SEP 198 1 0 3} DRIVER. SRCIJPAINIT.MAR;2 . (3) 
5 1027 
08 A2 51 00600000 BF C9 1 8 100$: BISL3 #DYNSC 7550's R1,- ; Set structure type 
4 PPDSW_SIZE(R2S ; and size in temporary buffer | 
11. 1050 ; Note that the size is not CRCed 
2}! 1031 3 so it can be the straight size 
1) ¢ ; here, not a negative offset to | 
511 1 ; _a net header. 
511 1034 ; Set up data to CRC: 
OC A 94 6511 1035 PPD$W_LCB_LEN7(R2) ; H.o. Lb data Length + 7 
07 IA 81 514 1 $ ADDB3 PPDSWILENGTH(R3).#7,- ; L.o. lb data length + 7 
9D A 518 1 PPDSW-LCB_LEN7#1(R2) —; 
50 OC AS 90 an 1 8 MOVB = PPD$B"PORT(RS) ,RO ; 
OF A 9 1 1 MOVE RO,PPD$B_LCB_PORT(R2) : own port number, | 
OF A 9 5 1040 MCOMB OR R84 wb: yy 3; NOTCown port), | 
10 A 0 9 Be 6 1041 ove RO,PPOSB_LCB_LPORT(R2) ; Local port, 
0D 90 050A 1 4¢ MOVB #PPD$C_SRDLB-- ; SNDLB opcode, 
1 ag Sec (104 PPD$B_CCB_OPC(R2) ; 
12 A 94 OS52E 1044 PD$B_LCB_O(R2) ; _and 0 (packing fmt = 0) 
C 88 531 1045 PUSHR M<R2,R35,R4,R5> ; Save registers 
9 28 05 1046 MOVC #PPDS$C_LBDAT.LEN,- ; Copy LB data from 
2 A 05 104 PPD$B_CBDATATRS) ,- 3 template to temporary 
13 A2 0537 1048 PPDSC CB_DATA(R2) ; buffer 
2 oF 7D 0539 1049 MOVQ (SP), ; Get R2 and R3 again 
50 ODA 9A 053C 1050 MOVZBL PPDSW_LCB_LEN7+1(R2),RO ; Get # bytes to cere 
FFFFFFFF -. rgso 4 0B 3248 1931 cRC SL foercady : Coneute CRC from temporary 
. ¥ : buffer 
C BA 054C 1988 POPR #*M<R2,R3,R4 RES ; Retreive registers 
42.03 50 D2 O54€ 1054 MCOML  RO,PPD$L_CBCRC(R3) > Put CRC complement into template | 
50 52 00 0552 1055 MOVL 3; Copy temporary buffer addr 
00000000'GF 16 0593 1056 JSB G*COMSDRVDEALMEM : and return it to pool | 
0358 1928 INIT_DFREEQ: | 
54 0084 (5 D0 055 1086 MOVL UCBSL_PDT(RS) ,R4 ; Get PDT address 
50 00000000'GF 3C 0560 1061 MOVZWL G*SCSS$GW_PAPPDDG,RO ; Get # dg's for start handshakes 
0198 C46 50 DO 0567 106 MOVL RO, PDT$W_STDGDYN(R4) ; Set dynamic count of # dgs for | 
56C 106 : IDREC's and 0 the number curren‘ _y 
56C 1064 3; spoken for by known ports 
50 50 0 056C 1065 ADDL RO,RO ; Double to handle error log dgs 
FA8E’ 30 oof 1 4] BSBW SCSSALL_FRDGS ; Allocate and put on free queue 
90 5 9 05 106 BLBC R ; Branch if insufficient memory 
50 ¢ 575 1068 MOVZ2WL #PA_C_MCACHESZ,RO ; Get # msgs to fill cache 
FABS' 578 1069 BSBW 8 ©SCSSACL_FRMSGS ; Allocate and put on free queue 
87 50 9 378 1070 BLBC RO,9 ; Branch if insufficient memory 
017C c4_—sOOF 0 7E 1071 MOVB #15 ,POTSB_MAX_PORT(R4) : Assume small capacity cluster 
010C D4 sO 5 1976 TSTL aPOTSL_PPR(R4T 3: Is it 16 ports max? 
36 i 5 107 BGEQ 1 3 3; Branch if so 
017C C4—sODFsCOaBF ; ? : iS MOVB #223, PDTSB_MAX_PORT(R4) ; Else up count to 224 ports 
010C D4 = «90 F 1076 120$: MOVB @PDTSL_PPR(R4) ,- ; Save local port number in 
017D C4 3 107 PDT$B_PORT NUM(R4) > POT 
1 90 208 107 MOVB #PPDST_PSPO,- 3; Set poller to scan all ports 
O17F C4 598 107 PDT$SB_REQIDPS(R4) > on path A 
53 24 AS 598 1 9 MOVL UCBSL~CRB(RS) ,R3 ; Retreive CRB address 
FASE' SOF 1 BSBW = CNF SCALCINTOUE : Calculate due time for 
5SA2 1 § 3: next driver wakeup 
FASB’ 30 O5A2 1 BSBW CNFSCALC_POLLSW 3; Compute the time to do a 
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INISPORT, INITIALIZE PORT 


MECHESIOEE HEMET ANTE NeSeANRH%n.2 "el 


AS 1084 full sweep 7 the poller 
ge AS 1085 PUSHR ey ig Sa : register 
FF BF O00 BF C A? 1 § mMOVCS In 5 port logout area 
980 F AD 1 sa PALENGTH - ,POTSL DQ@ELOGOUT>, = 
EO C4 BO 1 8 a og LOGOUT ( 
0 BA BS 1 POPR ; Restore registers 
00000653'EF 01 0 B5 1090 MOVB i MeN SRORT REV : Assume port ucode rev is good 
10 A BC 1091 BISW  #UCBSM_ONLINE,- : et unit online 
64 A SBE 109¢ UCBSW_STS(RS) ; | 
01 AA af 109 BICW #PDTSA_PwWF_CLNUP,=- 3; Clear power up init 
0110 ¢4 C2 1094 PDT$w_CPORT_ STS(R4) : in progress | 
6 Ags QO5CS 1095 BISW preren PUPTPDTSM_LBDG>,-; Set power up and Loopback S¢ 
0110 C4 ar) 3 6 POT tx: STS(R&) z dg enabled on port SC 
04 cB OSCA 109 BISL2 #PA PAE Enable interrupts S¢ 
O0E8 D4 05¢C 1098 aPOTSL PRCCRS ; | SC 
05 OSCF 1099 RSB ; Return from port initialization S¢ 
05D0 1100 -DSABL LSB +} 
| S¢ 
| 


rE 


SSSsssm 


a a ed at ed a a dd 2 2 a a 2 a a 8 a 2 od > 2 as 2 2 st 


MAMA AIT BBS BEB BANNAN AAAI POPUP BOO 


CONIA ME WI 9 OS OO NAME WIN OS OD NAW EWN SO OO NIA E WIN OS OO NA UNE WN  O OOO UTP 
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Se ee ee ere rah ab ab Ab db Ab db Ab db db Ab db ab ab ah ab ah ab ah ah ah ab ab ab ab ah ah ab ab ab ah ah ah ab ah al ab ab ab ah ah ah ab ab abl 
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D 

D 

D 

0084 ¢5- OD ; 

69 13 D 

0080 ¢5 91 D 

0081 C5 D 

01 i D 

% He 

52. FA76 CF Of E 
0080 ¢5 9 E 

A 18 E 

0066 «3 ; 

52 FAB9 CF ODE E 
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TEST SHUTDOWN, CHECK IF PORT SHOULD 
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-SBTTL TEST SHUTDOWN, 
~SBTTL = 


AX/VMS Macro v04-00 
DRIVER. SRCJPAINIT.MAR;2 


CHECK IF PORT SHOULD 
BE LEFT OFFLINE 


roe it, 


This routine is oe each time a port is ini 
is being initialized for the first time, or if 
down, then return is taken. 


If this is not the first port init, then it must be a reinit following 
a serious port error, If the Syeces device is not on this CI port, 
and the number of reinitialization tries have been exhausted, then 
the message, ‘ZPAx0, C1 Port is going Offline.’ is printed. 

there are retries left, then the message, 
*ZPAx0, Cl Port is Reinitializing ( xxx Retries Left). Check Error Log.’ 
is printed. Both messages are directed to _OPAO, rather than OPCOM since 
OPCOM needs a function ng system device to run and the system device may be 
accessible only through the failing port. 


tialized. If the port 
it is already shut 


In the case of initialization failures that result in branching back 

to INISPORT for another try (e. g., ucode readback compare error), 

these failures count against the maximum error retry count, and a message 
is printed for each failure. 


If the port should be taken offline due to exhausted retry count, but 
the system device is on this CI or this port is needed to cluster, 
then the port driver bugchecks (in routine CLEANUP_PDT.) 


Inputs: 
RG “Addr of pect config register 
RS “Addr of UCB 
IPL -IPL$_SCS 
Outputs: 

RO-R5 “Destroyed 
Other registers -Preserved 
-ENABL LSB 

TEST_SHUTDOWN: 
TSTL UCBSL_PDT(R5) ; Already shutdown? 
BEQL 10$ ; Branch if so, no reason to proceed 
CMPB = UCBSB_ERTCNT(R5),- : Is this the first init of port? 

UCBSB_ERTRAX(RS) : 

BNEQ 0$ ; Branch if not 

10$: RSB ; Else return to continue init 

20$: MOVAL INISMSG_INIT Re : Get addr of appropriate msg 
TSTB YCBSB_ERTCNT(R ) ; Retries all used up? 
BGEQ 0 ; Branch if not 
BSBW CLEANUP_PDT : Else cleanup PDT=-- bugcheck 

3 f can't proceed without port 

MOVAL INISMSG_OFFL,R2 ; We can proceed 
BRB 408 ; Go print port offline message 


H 8 
voen O01 =~ BE LEFT OFFLINE 18-$Eb=19be B1iisi81 LORIVER.caeipAtNiTomaR;2 29° (2, 


F5 «(115 
FS 1160 ; 
F 118 ; The port reinitialization message is aing to be broadcast to _OPAO. Format 
: Bb ; that portion of the message the contains the number of retries remaining. 
FS 1164 * 
38 f 1188 30$: PUSH R2 3; Save message address 
35 F 1198 ADOL #RETRY_OFFSET,R2 ; Position to retry field in message 
50 80 C5 ry FA 116 MOVZBL UCB$B_ERTCNT(RS) RO 3; Retrieve number of retries left 
FOFE* SFF 1168 BSBW ERRSCRV_HEX_DEC z Format the retry field 
52 BED $9 1190 POPL R2 ; Restore message address 
1171 ; 
60 1126 3; Broadcast the message of choice to _OPAO after completing the common 
3 Vie? : formatting of the message. 
605 1175 ° 
51 be 9A 0 1176 40$: MOVZBL (R2)+,R1 ; Get sogsege size and address 
50 2BA DO 0608 117 MOVL UCBSL_DDB(RS) ,RO ; Get DDB addr in 
17 a0 0-90 ¢ 1178 DDBST-NAME+3(RO) ,- : Copy device controller letter from 
06 A 60F 117 CTRLR ued ) ; _DDB to ASCII msg 
55 Q0000000'GF 9& 0611 1180 MOVAB G*OPASUCBO,R ; Set _OPAO to get aso 
00000000 ' GF 1 Bele 1 1 JMP G* 1OCSEROADCAST ; Send msg to terminal driver 
O61E 11 : -DSABL LSB 


PAINIT 
v0u~001 
-SBTTL PORT INITIALIZATION ERRORS 


g¢ 

; Come to PORT_NOTPRES if the NOCI bit is set in the cont tqurat fon 

i register. The condition can onty ever happen on a (1750. It indicates 
; that the port in its external cabinet is uncabled or unpowered. 


-ENABL LSB 
PORT_NOTPRES: 


CVTWL 4 «6#<PAERSK_ES_HWER ! “xX8000>,RO0 ; Log as unspecified hardware 
BSBW ELOGSHARDWARE 3 error 
BRW CLEANUP_PDT : Go clean up without bothering 


to do any retries. 
g¢ 
3; Come to CPU_REV_ERROR if the CPU revision level is not sufficient to 
; support CI port activity. 

Inputs: 


R1 ws of current SID 
R5 “UCB address 


5 

; 

§ 

4 

5 

5 

9 

0 

1 

§ 

& 

5 

5 

: 

ul 

é CPU_REV_ERROR: 
& CLRB INISCPU_REV Clear flag that says this 
5 is requicr bugcheck reason -- 
§ this is reason for UCODEREV bugchk 
8 Log bad CPU rev 

9 

’ 

§ 

4 

5 

$ 

5 

0 

1 

§ 

os 

5 

; 

5 

0 

1 


Go clean up pool because we 
can't continue 


BSBW = ELOGSCPU_REV 
BRW CLEANUP _PDT 


+ 
Come to WCS_ERROR if loaded microcode could not be read back 
correctly. 


Inputs: 
PA_MADR(R4) “micro addr that failed 


PA_MDATR(R4) -Bad WCS contents 
RO -Copy of good data from pool 


WCS_ERROR: 


BSBW ELOGSUCODE _NORD ; Log microcode read-back error. 
BRW RETRY_INIT ; Go clean up allocated pool 


sé 
3: Port initialization (transition from uninitialized to disabled) did 
3 not complete correctly. 


o 


PORT INITIALIZATION ERRORS 18-$Fb=13be 81:98:81 LORIWER.caeaeatntromans2 P29 30, 


i INIT_PORT_FAIL: 


CVTWL so #<PA abe ES_INIT ! *x8000>, RO : Log failed to chenge from 
BSBw ELOGSHARDWARE it. to disable error. 
BRw RETRY. INI IT 3; Go clean up allocated pool 


w 


50 mtg off. e0* 30 


> 


BESSSOSOSOSUOEEE 
OOo 


St eb be ts ts > bd bd 0 ts i ts te 


PDD PAA & & & & 
NO 


NM—OOONAULS LTO 0@ 


a 


e to allocate soaporery buffer in which to calculate the 
ack datagram CRC. 


S$ 
oo 
o-— 


NIT_LBDG_FAIL: 
ne PAERSK_ES_POOL EQ 0 ; Log a pool allocation error. 
BSBW ELOGSINIT -SWERR 
C_MMI ; Do maint init on port to 
aPorst PRECRGS : make sure it's quiet 
BRB CLEANUP _PDT : Go clean up allocated pool 
-DSABL LSB 


oft fi 
= $3 11 


8 | 
yoerb01 PORT INITIALIZATION ERRORS 18-$Ep=-1986 81:98:31 EDAIVER.eRETPAYMIT maR:2 = 28° iby 


; 


ISRESISEE MEST UWE NESBA Mhaese PO 


PORT INITIALIZATION ERRORS DRIVER.SRCJPAINIT.MAR; 2 (16) 


6 1264 ;¢ 
6 1 22 3; Deallocate template loopback datagram (if any) and PDT (if any). 
1 § ; Return to caller with device offline, and power fail/power up 
! 3 unchanged. 
6 ! ; Inputs: 
1271 : RS “UCB 0 addr 
B35 1508 * 
6 : re INISCPU_REV: : 
01 e3 : ug -BYTE 1 : 1/0 means CPU rev is okay/not okay 
$3 28 INISPORT_REV: : 
01 re 1280 -BYTE 1 : 1/0 means port ucode rev is okay/not okay 
654 1281 ; NOTE: use of this memory flag is not 
654 1 86 ; quite right in the case with multiple 
654 128 ; ports since there is a fork between 
0654 1284 ; the point where the flag is set 
0654 1 HH 3 im ERRSCRASHPORT and where it is 
0654 1 $ 3 set and here. This means that we 
0654 128 3 arent take the UCODEREV bugcheck 
8836 1288 ; with the context for the wrong 
be 4 1289 3: port in hand, not a very serious 
Sit ies Sms 
Bo2e : 3 ASSUME PDTSL_FLINK EQ 0 
Seee : oe -ENABL LSB 
0634 96 CLEANUP _PODT: 
52 0084 C5 00 ay 1298 MOVL UCBSL_PDT(RS) ,R2 3; Get PDT addr 
1 Bees 1299 BEQL MAYBE _SYS_DEAD ; Branch if none allocated 
51  00000000'GF DE ¥ : a MOVAL G*SCSSGL_PDT,R1 : Get base of SCS port List 
50 61 00 $e 1 8 10$: MOVL (R1),R0 3; Get next PDT 
re 665 1 3 BEQL ; Branch if none, ours wasn't Linked 
52 0 ov! 7 1304 CMPL RO,R2 : Is this PDT ours? 
2 oe 6A 1305 BEQL 20$ 3; Branch if it is 
51 0 o0 066C 1 88 MOVL RO,R1 3; Else, save next PDT as previous 
Fl = : } 8 BRB 10$ : Continue searching down the List 
61 62 00 14} ! 03 208: MOVL (R2),(R1) 3; Remove out PDT from the List 
50 0184 fe 00 74 «1 i 30$: MOVL PDTSL_LBDG(R2) ,RO : Get loopback dg addr 
1 79 «1 \§ BEQL $ :; Branch if none allocated 
00000000°GF 16 HM : 17 JSB G*COMSDRVDEALMEM 3; Else deallocate it | 
51 0O0&4 C2 00 1 1315 40$: MOVL PDTSL_CNF(R2),R1 ; Get configuration register addr 
6 1 16 SPRICTINI - : Ignore non responding device registers 
131 B*50$ ,MCHKSM_NEXM 3 Causing machine checks 
01 v0 96 1 18 MOVL #PA_PAC_M_MIR,- ; while MINing the port once | 
04 Al 98 131 PA_PMC(RIS ; more just to be sure it’s quiet 
9A 1320 SPRICTEND 50$ : 


ae 


50 » BEE 


seed | 


00000000 ' GF 
1D 


54 0084 C5 
SF AF 
oc 


8B AF 
07 


—O—-0o79 


PORT INITIALIZATION ERRORS 


ut 


Saseeceaeees 


SSSSSSSSSSSSCC OOOO OSES. 
a a a a a a ee a me a 


DDPEDQ_LDQDPLA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AA AO 
TAH HHMMMMMMMMMMMMMMMMMMMMMMMoOOOOOTOTVIANO 


PPV "*GOVCVTCVTVTVOVCTVCSCVTTTT99F0 0uUl7 Ooo PO 


7 


FAN AO ODNAUNE WN OS OD NAUE WN $$ OS OD NAME WN 0 OD NOAUNE WH 0 ODNOUS Wn 


NNN NIAAA AOA AAO AMMA RR RR RRR RE 


MAYBE _SYS_DEAD: 


16-SEP-1 
18-86 =1 4 
MOVL G*EXESGL_ SYSUCB,RO 
CMPL UCBSL_PDT(RO),= 
UCBSL_PDT(R5) 
BEQL MAYBE-SYS_DEAD 
TSTL G gLuseL_CLus 
BEQL 0$ 
TSTL G*SCSS$GL_PDT 
BNEQ 
MOVL UCBSL_PDT(RS),R4 
TSTB INISCPU_REV 
BEQL UCODE _BOGCHK 
TSTB INISPORT_REV 
BEQL UCODE_BUGCHK 
BUGCHECK CIPORT,FATAL 


UCODE __BUGCHK: 


BUGCHECK UCODEREV,FATAL 


R2,RO 
JSB G*COMSDRVDCALMEM 
CLRL = UCBSL_PDT(R5) 
MOVL  UCBSL~CRB(R5) RO 
CLRL = CRBSLAUXSTRUC(RO) 


Inputs: 


DRIVER.SRCJPAINIT.MAR; 2 


Get system device UCB 
Is it via our PDT? 


Branch if so 
No. Are we clustering? 


4 01:08:39 AX/VMS Macro V04-00 


by without port 


Any SCS speaking PDTs left? 
Branch if so -- pene a chance 
that the remain 
carry us 
Else set up R4 for BUGCHECK 
Is this a CPU ucode problem? 
Branch if so 
Is this a port ucode problem? 
Branch if so 


normal CIPORT bugcheck 


3; Shut system down with microcode 


; revision problem bugcheck 


3; Copy PDT addr to RO 
; Deallocate PDT 

: Show PDT as gone 

; Get CRB addr 

; and show no PDT here either 


3; Return 


RETRY_INIT is branched to on WCS load error or port init 
r RETRY_INIT checks for retries 
to CLEANUP_PDT. If retries are left, 

after decrementing the retry count. 


left. If none, it branches 
it branches to INISPORT 


RG a Ay ek register addr 
addr 


RS -UCB 


RETRY_INIT: 


MOVL  #PA_PMC_M_MIN,- 
PA_PMC(R4J 

DECB CBSB_ERTCNT(RS) 

BRW CLEANUP_PDT 


BRU INI SPORT 


Do maint init on port. 

to make sure it's quiet 
Decr # retries left 
Branch if retries left 
Else cleanup PDT 


; Else do another init 


Branch if not because system can get 


ng port(s) will 


Else shut the system down with 


PORT INITIALIZATION ERRORS 


rb 1305 


-DSABL LSB 


7 
IRENE BIEQESEE YAMS tera ymecon Page 34 


eee os 


N 8 | 
PAINIT 16*SEP=1984 01:08:59 VAX/VMS Macro v04-00 p | 
yoen001 INISFORK 18-SEpajobe O1ihe:8) FORIVER. cae apAlurTomar:2 28° 335, 


~SBTTL INISFORK 


+ 


This routine oversees and porte tpstes in the creation of a fork process, 
and the transfer of control at fork IPL to a user supplied address. This 
rout < will use the UCB's fork block dequeuing it from the appropriate fork 
queue if necessary. The dequeuing of the fork Block and creation of the fork 
process is handled as an atomic event by disabling all interrupts before 
testing whether the fork block needs to be dequeuved, and then re-enablin 
interrupts after creation of the fork process. After creation of the for 
process this routine returns control to the caller. 


When the fork process commences execution it will do so within this routine. 
It immediately will transfer control to the user supplied address. The caller 
of this routine has available R4 in order to pass information across the 
creation of the fork process to the user routine which will be jumped to at 
or . 


This routine participates in proper synchronization to the fork block by the 
appropriate setting and clearing of the fork block interlock bit before the 
fork process is creating, and within the context of the fork process. 


Inputs: 
“Address to JMP to at fork IPL 
L “Device IPL or higher 
Outputs: 
After creation of fork process but before returning to caller: 
R3- “Destroyed 
Other registers -Preserved 
IPL -Preserved 


| 
| 
R3 
R5 “Address of UCB | 
IP | 
Before exit from fork process: 


SNS SPD DD DDD DDD APD PAA PAPA AAA AAAAAAA AA AAA AAA A AAA AAAAAA SH 
Ba Din Di Di Dia Bi Din Ri Die Bi Dis Ri Di Bi i Bie Ds Bi Re Be Rs Bi es Bi Bs Ds Bs Bi Rs Be Bs Bs es Bs i Bs Bs Be Be Re Be es Be ee Be es Be De | 

DAWT VOTO V VV SUC VC VCC UV COUV VNU U VU CVV UVC CVU CUCU" "U""0"00"0000 

eed ae et et et = = = = = SS = = = Ss ss ss = ts SS SS SS SS SS = SS SS SS 
ee ee oe oe oe ee ee oe ee ee ee ee ee ee ee ee ee ee ee ee eee eee 
AWWA AIA AR OPOPIPIPINNDIIDD 4 4 4 MODOC OOOO 000000000000.0000000000000000000 
NONE WAN OS OONAUE WIN @OODNOAUE WN OOD NAMNE WINS OONAOUNEWN CO ODNOUE WN 

Sete Ge Ge Ge Fe Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Ge Ge Sete 


SOOCOCOCCOOSOSOOOSOSOSOSOOSOOSOOOOOOOCSOOSOSOOOOSOOOOOOSOSoOOS 


a “Unpredictable 
R “User address jumped to at fork IPL 
RG “User supplied value 
RS “Address of UCB 
IPL “Fork IPL 
~ENABL LSB 
INISFORK:: 
DSBINT ; Disable all interrupts 
—3 BBCS #UCB_V_FKLOCK,=- : Is the fork block in use? 
03 68 AS ucpsa BEVSTS(RS) , 108 ; Branch if not and set in use bit | 
55 > @ REMQUE (R5),R ; Remove fork block from its queue 
00800 IP EE oF 10$: PUSHAB 90s 3 Return address for fork proc creation 
Reh er OF 1 PUSHAB $ : Fork process PC 
00000000'°GF 17 i JMP G*EXESFORK : Create the fork process 


<v 


B 9 
INISFORK 18=$6b=-198< 91:98:37 EDRIVER.SRESPAINITOMAR;2 29° (9) 
nterr 
aller 


NBINT 3; Re-enable int 
$B l 


| 
a 


vOa~001 


™~m 
So 
Sed 


rrupts 
e 


05 ; Return to c 


7 14 
7 i 1238 
ra) tit 
721 1206 ; INISFORK resumes execution at fork IPL within the context of the fork process 
721 14435 ; whose creation it has initiated. 
721 1444; 
721 +1445 

0 AA 07 1ee8 30$: BICw2 aves - ; Clear fork block in use bit 

68 A 723 144 ices. ERs) 

6 17 Q7 12¢3 JMP (R3) ; Transfer control to user supplied addr 
7 144 ~DSABL LSB 
727 +1450 
727 «(1451 END 


eae 
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SSSCURSIZ 


BUGS_CIPORT 
BUGS _UCODEREV 
BUGS _UNSUPRTCPU 


CI_790 
CLEANUP_PDT 
CLUSGL_ CLUB 

CNF SCACC INTDUE 
CNFSCALC_POLLSW 


COMSORVDEALMEM 
CPU_REV_ERROR 
REV_OK 


CRBSL_AUXSTRUC 
RBSL—INTD 


$0 HECK 
ERnar DES veto 
EXESACONORPAGED 


—— 0 FP - DWOOmMms 


Reeeeeee 
ReRRRERE 
RRRARAEE 


COooo0oeo 


00000158 
00000654 


Reeeeeek 
geeeeaenre 
eeeeenree 
REReAEEE 
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Oo—foon—o 
—MFSWO— £00 


So 
on 
Mo! 


geereneer 
gtererenre 
teeerene 
geererese 
geeeeeee 
teetcerese 
geeereee 
gereraene 
rteraereee 
reterere 


oO 
—_ 


<x 
et at ss ss 2 ss Ss 


Ss Sooooooooooooooooooo 


>< OC OK OE OE OE OE OE OE OE 
ed ed ed ed ed ed 


SOooooooeooo 


13018 
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RRAAAAEE 
RHARRREEE 
Reereree 
RRAREREE 
RRRAAREE 
RHRKEREE 
RRARRAERE 
RRARHREE 
REREAAEE 
RRAKREKE 
RERRHEAE 
RRARRAAE 
RERAAERE 
RERRREEE 
REARKHERE 
RREERREE 
RERRRERE 
RRARRREE 
RERKRAHK 
RARER 
RRRERAEE 
RAREERRER 
RRRRHERE 
REKRRAEE 
REREKERE 
RRERRHEE 
RRAEKREEE 
REEREEEE 
REARAKARE 
RERKEEEE 
RRARKREE 
RRA 
RERREEEE 
RRREKEEE 
RRERRRAAE 
REARAREE 
RRAREAAEE 


00000652 RG 


>< De OK OK OK OK OK OK OK OK OK OK OK OK OK OK OE OE OK OE OE OE OE OK OE OME OE OE OE OE OE OE OE OE OE OE OE 


2s OOOO OOCOOOSOSoO 
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MIN_750_REV = 00000061 PDT$B_NXT_PORT 17e 
MMGSGL_GPTBA teeeneee X01 PD1$B-PO_CBSTS 1 
WNGSGL SPTBASE teneeeee X01 PDT$B-P1-LBSTS 181 | 
OPASUCE teeeeere X01 PDT$SB-PDT_TYPE 2 0 
THER CPU 16D R 1 PDT$B~PLOGMAP 134 
PASCTCINIT OE RG 1 PDT$B-PORTMAP 114 
PASREGOF FSET OSE RG 1 PDT$B~PORT_NUM 17D 
PASSCSOFFSET 00 RG 1 PDTS$B-REQIDPS 17F 
PASUNITINIT 111 RG 1 PDT$B~SUBTYP = 00000008 
PAERSK_ES_CODE = 01 DTSB-TYPE = 0000000A 
PAERSK~ES_HWER : PDTSC "LENGTH = 00000064 
PAERSK~ES_INIT > Q PDTS$C-PA = 00000001 
PAERSK-ES_LSTO : PDT$C~PALENGT = 60 
PAERSK-ES_LST1 = 0 PDTS$C~PAREGBASE 0000064 
PAERSK_ES_LST¢ > 07 $C“PAREG 9000110 
PAERSK—ES_LST = 00000009 $¢"PaB = QO0001E 
PAERSK-ES_LST4 = 0000000¢ C"SCSB = 0000000C 
PAERSK~ES POOL = 00000000 PDT$C~SCSEND = 00000084 
PAERSK-ES_SCSID = 9000000 PDTSL ACCEPT = 0000000¢ 
PAERSK~ET~DALT = 0000000 PDTS$L-ALLOCDG = 0000001 | 
PAERSK~ET-LMLT = 9000004 PDTSL~ALLOCMSG = 00000014 
PA_CNF 000000 PDTSL—CNF 00000E4 | 
PA~CNF_M_NOCI = 00001000 PDTS$L CONNECT = 00000018 | 
PA~CQ0 00000908 PDT$L~CQ0 000000F 0 
PA~CQ1 000090¢ "Cai 000000F 4 | 
PAqCag 0000910 PDTSL~DCONNECT = 00000028 
PAW 0000914 PDT$L-DEALLOCDG = 9000001. 
PA“C_MCACHESZ = 00000003 PDT$L~DEALLOMSG = 00000020 
PA~C~UCODEST = 00000400 PDTS$L~DEALRGMSG = 00000024 | 
PA~DFQ 0000928 L7DFQ 000006 ¢ 
PATMADR 90000014 PDT$L-DFQHDR 90000208 
PA“MDATR 00000018 PDTSL~DGHDRSZ 0000190 
PA-MFQ 0000092C PDTSL~DGNE THD 00000194 | 
PA-MTC 00000930 DT$L-DGOVRHD = 00000088 
PA"MTEC 90000954 PDT$L ~DQELOGOUT 90000260 | 
“PDC 0000920 “FLINK = 00000000 | 
“PEC 000091¢ PDT$L~GPTBASE pooo0ze¢ | 
PA~PEC_M_PEC = 00000001 PDT$L-GPTLEN 0000230 
“PESR aia 4 PDTSL_LBDG tat 
PA_PFAR 00009 PDTSL_MAINTFCN = 00000078 | 
“PIC 9000924 PDT$L MAP = 000000¢¢ | 
PA~PIC_M_PIC = 00000001 PDT$L~MAPBYPASS = 00000030 
“PMC 00000004 PDTSL~MAPIRP = 00000034 | 
PA-PMC_M_MIE = 00000004 PDTSL-MAPIRPBYP = 00000058 | 
PA-PMC~HMIF : 8 PDT$L ~MAXBCNT : C | 
PA~PMC~M~MIN z 1 PDTSL-MFQ 9000100 | 
PA-PMC~M~MTD = 000 PDTSL~MFQHOR 0020 
PA~PMC"M~PSA : 4 PDT$L~MQELOGOUT ; 
“PPR 4 PDTSL-MRESET = 00000070 
PA~POBBR 204 PDTS$L~MSGHDRSZ = 00000084 
“PS 200 PDTSL-MSTART = 00000074 
“PSR 91 SL“MTC 104 | 
PA~PSR_M_PSC 2 1 PDTSL~PFAR 00108 
PA~PS_A PIC : 8 $L~PMC 0 
T$8~D01MAP 154 PDT$L ~POLLERDUE 18¢ 
PDT$B-HSHUT_DG 190 PDTS$L ~POOLDUE 1 
T$B~MAX_PORT 17¢ PDT$L~PP 10€ 


<v 
Om 
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Symbol table 18-SEb=1 382 9:98: 34 YORIVER. SRC IPAINIT MAR: 2 v iD 
PDTSL_PS EC PPD$B_LCB_PORT E 
PDT$L-PSR F PPD$B-OPC E 
PDTSL ~QUEUEDG = 3 PPD$B~PORT C 
PDTS$L~QUEUEMDGS = i PPD$B-PROTOCOL A 
PDTSL ~RCHMSGBUF : ra PPDSB-RSTATE 3 
PDTSL_RCLMSGBUF = rt POSB_RST_PORT 4 
PDTS$L~READCOUNT : 6 PPD$B-STATUS D 
TSL_REJECT = 00 r+ PPDSB_SWFLAG 0B 
PDT$L~REQDATA : 5 PPD$B-SYSTEMI 14 | 
TSL-RLSC 2 gC PPD$B-TYP 00 000A | 
PDTSL_SENDDATA = 4 PPDSC_LBDAT_LEN = 00 0 
TSL~SENDD = 00 3 PPD$C-LB_LERGTH 2000046 
PDTSL-SENDMSG 2 C PD$SC-LCB_DA 0001 
PDTSL ~SENDRGDG = 90000 ¢ PPDSC-LENG 9000012 
PDTSL_SNDCNTMSG = 000 PPDSC_MIN_DGSIZ 000005 
PDTSL_SPTBASE 0000224 PPDSC_PSP = 00000001 
PDTSL~SPTLEN 0000228 PPDSC~SNDL = 0000000D 
PDTSL_STOP_VCS = 00000080 PPD$K-LB_LENGTH 9000046 
PDT$L~UCBO = 000000D¢ PPDSK“LENGT 900001 | 
TS = 90000 64 PPD$L “BLINK 00000004 | 
PDTSL_VBOT 0000 if PPD$L_0G_DISC 0000028 
TSL~VPQ 0000021 PPDSL~FLINK 0000000 | 
PDTS$L WAI TQBL = 90000080 PPD$L-IN_ VCD 9000018 
POTSL WAI TOFL = Q00000AC PPDSL“LBCRC 0000004 | 
PDTSM_CUR_LBS = 00000001 PPDS$L~PO_ACK 00000010 
PDTSM_LBD = 00000004 PPD$L~PO-N 00000014 | 
PDTSM_PRV_LBS = 99000002 PPDSL—~PO_NRSP 00000018 
PDTSM_PUP z 9000000 PPD$L~P1 ACK 9000001¢ | 
PDTSM~PWF_CLNUP = 00000001 PPD$L_~P1~NAK 9000026 | 
PDT$Q~COMG 900001F0 PPD$L~P1-NRS 00000024 | 
PDT$Q~ COMA 00001F8 PPDSL-REC_BOFF 00000028 | 
PDT$Q~ COMOBASE 000001£0 PDSL~REC-NA 900000 4 | 
T$Q- COMQH 0000168 PPDSL-RPORT_FCN 0000020 | 
T$Q-COMQL 00001E PPDSL_~RPORT_REV 9900001¢ | 
PDT$Q_DFREEQ 000 190 PPDSL_RPORT TYP 0000001 
T$Q"FOR 00000174 PPDS$L_SND_BOFF 00000020 | 
PDT$Q_MFREEQ 9000108 PPDS$L—SND NAME 9900001 ¢ 
TSO-RS 000020 PPD$L~ST_ADDR 000001 | 
PDT$Q~ TEMP_RSPQ 900019 PPDSL_XCT_LE 90000018 
POTSV~PwF_CL = 0 00 g PPD$O~CURTIME 0000048 | 
PDT$W_BDTCEN 0000 PPD$Q_NODENAME 4 
PDT$W~DQELEN 000021 PPD$Q~SWINCARN 000002 
PDTSW-LPORT STS 00011 PPD$Q-XCT_ID 000001 | 
PDTSW_MOELEN 900214 PPD$T-HWTYPE 0 900 | 
PDT$W~PBCOUNT 1 PPD$T-SWTYPE 0000 
PDT$W"SIZE = 0000000 PPDST_SWVERS 0000024 
PDT$W~STDGDYN 0 19 PD$W-LCB_LEN7 99000 
PDT$W_STDGUSED 19A PPOSW_LENGT 4 1 
PORT TPRES 0 1E R 01 PPDSW_MASK ° 31 
PPDSB_DEF_ST 0001C PD$W_MAXDG 000001C 
PPDS$B_FLAGS : or PPDSW_MAXMSG 000 B15 
PPDSB_HWVERS 000034 PPDSW"MTYPE 000001 
PPDSB_LBDATA 1 PPDSW_M_VAL 8 8 14 
“LCB_0 1 PPDS$W SIZE 08 
fat eee i Bh = BR 
PPD$B~LCB~OPC 8 11 PRS~SID : § gt 
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PRS_SID_TYP7 : 002 


PRS 
3 R 01 
655 R 01 


“TYP? 
L = 


m 
— 
“ 
oo 
oo 
on 
rom 
~o 
@ 
Oo 
— 


-—aw 


CS$GB_PASANITY 
SCS$GB_SYSTEMID 
SCS$GL_BDT 


MCAD 


GNSGL_MAXGPGCT 


UCBSW~STS 
UCBSW"UNIT 


Ss oo 
oo 
oo 
oo 

So 
oo 
et 
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geeerere 
eeererenre 
geeeeeee 
eeeeeeee 
Reeeeeee 
gererenre 
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geeerere 
Reeeeenre 
ReReeeee 
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gerereee 
Reeeeenre 
Reeeeaeee 
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—-o-00 & 


os 


og 


OOCOoooooooooooeo 
> Orono & 
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Psect synopsis 1 mets 8:98:33 LORIVER. SRCJPAINIT.MAR;2 ’ (17). 


tee ren eee ome eesce $ 


! Psect synopsis ! 


toewme ere ee nneonen } 


PSECT name Allocation PSECT No. Attributes 

" aes > 4 ogo 9. ° 9. ) NOPIC USR CON ABS LCL woe =o NORD gt NOVEC BYTE 
$$$115_DRIVER t 3833-3 -) NOPIC USR CON REL’ LCL NOSH EXE RD T NOVEC LONG 
SABSS $00 944 ( 2372.) :} NOPIC USR CON ABS LCL NOSHR EXE RD URT NOVEC BYTE 


pew mare ase mewn mee aoe ae 


! Performance indicators ! 


teem seernmen en see ener een mee + 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 8:00: 0.06 00:00:00.81 
Saas. an Re me ana 
syabol table sort 8:00; 03 :00:11.66 
s 2 264 B3 82: . ! 8: HS 
Syabot table output 47 1: 5's 0:00:01.76 
Psect synopsis output 3 33:8 :00.01 00:00:00.01 
Cross-reference output 0:00: 3-28 Shs Ba Se 
Assembler run totals 1009 00:00:23.49 00:01:40. 


The be yprking se oes Limit was 2250 pages. 
bytes (264 pages) of virtual memory were used to buffer the intermediate Eger. 
the re were 110 pages of symbol table space eee d to hold 1967 non-local and 52 local symbols. 
1451 source Lines were read in Pass 1, "sein ts object records in Pass 2. 
51 pages of virtual memory were used to define 45 macros. 


eewmeraon ere esas oso neaescaesce a} 


weeceee nen ee eee eee ee eee enone $ 


Macro Library name Macros defined 
-8255$DUA Bs CDRIVER. OBJJPALI8.MLB;1 7 
$255$DUA SYS.OBJJLIB.MLB; 1 17 
-§ 5SS$DUA28: CSYSLIBJSTARLET.MLB;2 10 
TOTALS (all Libraries) 34 
2338 GETS were required to define 34 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:PAINIT/OBJ=OBJ$:PAINIT MSRC$:PAINIT/UPDATE=(ENHS:PAINIT) +EXECML$/LIB+LIB$:PALIB.MLB/LIB 
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